From: Gerd Moellmann Date: Mon, 23 Apr 2001 12:30:39 +0000 (+0000) Subject: (fortune-from-region): Use `eq' instead of `eql'. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40610 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=738bac2133553999c495a0922af364e60b874359;p=emacs.git (fortune-from-region): Use `eq' instead of `eql'. --- diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 0ae1a841f43..3ab616b9b31 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -201,9 +201,9 @@ read the file name to use. Otherwise use the value of `fortune-file'." (point-max) t)) (if help-point (setq newsgroup (buffer-substring (match-beginning 1) help-point)) - (setq newsgroup (if (or (eql major-mode 'gnus-article-mode) - (eql major-mode 'vm-mode) - (eql major-mode 'rmail-mode)) + (setq newsgroup (if (or (eq major-mode 'gnus-article-mode) + (eq major-mode 'vm-mode) + (eq major-mode 'rmail-mode)) fortune-from-mail "unknown"))))